home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / tex / lfonts.amr < prev    next >
Encoding:
Text File  |  1986-12-16  |  37.6 KB  |  874 lines
  1. % File LFONTS.AMR - Version of 6 May 1986.
  2. %
  3. % This is a version of LFONTS.TEX for the AMR fonts.
  4. %
  5. % This file needs to be customized for the fonts available at a particular
  6. % site.  There are three places where changes need to be made.  They
  7. % can be found by searching this file for the string  FONT-CUSTOMIZING.
  8. %
  9. %
  10. % FONT CONVENTIONS
  11. %
  12. % A TYPESTYLE COMMAND is something like \it that defines a type style.
  13. % Each style command \xx is defined to be \protect\pxx, where 
  14. % \pxx is defined to choose the correct font for the current size.
  15. % This allows style commands to appear in 'unsafe' arguments where
  16. % protection is required.
  17. %
  18. % A SIZE COMMAND is something like \normalsize that defines a type size.
  19. % It is defined by the document style.  However, \normalsize is handled
  20. % somewhat differently because it is called so often--e.g., on every
  21. % page by the output routine.  The document style defines \@normalsize
  22. % instead of \normalsize.
  23. % 
  24. % A ONE-SIZE typestyle is one that exists only in the \normalsize size.
  25. %
  26. % A FONT-SIZE COMMAND is one that defines \textfont, \scriptfont and 
  27. % \scriptscriptfont for the font families corresponding to preloaded fonts,
  28. % as well as the typestyle commands for the preloaded fonts.  Each
  29. % font-size command has an associated @fontsize command, having the same
  30. % name except for an '@' at the front.   All font-size commands are defined 
  31. % in LFONTS.  The naming convention is that a fifteenpt font has a font-size
  32. % name \xvpt, and so on.
  33. %
  34. % Each size command \SIZE executes the command
  35. %             \@setsize\SIZE{BASELINESKIP}\FONTSIZE\@FONTSIZE
  36. % which does the following.
  37. %   0. Executes \@nomath\SIZE to issue warning if in math mode.
  38. %   1. \let \@currsize = \SIZE  
  39. %   2. Sets \strutbox to a strut of height .7 * BASELINESKIP and
  40. %      depth .3 * BASELINESKIP
  41. %   3. Sets \baselineskip to \baselinestretch * BASELINESKIP 
  42. %      and 
  43. %   4. Calls \FONTSIZE 
  44. %   5. Executes the \@FONTSIZE command.
  45. % It should then define all the typestyle commands not defined by the font-
  46. % size command, except for the one-size type styles. A typestyle command for 
  47. % which the corresponding font exists but is not preloaded is defined to 
  48. % expand to a \@getfont command.  A typestyle whose font does not exist is 
  49. % defined to expand to a \@subfont command.
  50. %
  51. % A one-size typestyle whose font is not preloaded is defined to expand to
  52. % a \@onesizefont command.
  53. %
  54. % \em is defined to be \it inside an unslanted style and \rm inside a
  55. % slanted style.  An \em command in a section title will produce a \pem
  56. % command in the table of contents.
  57. %
  58.  
  59. \def\em{\protect\pem{}}
  60. \def\pem{\ifdim \fontdimen\@ne\font >\z@ \rm \else \it \fi}
  61.  
  62. \def\normalsize{\ifx\@currsize\normalsize \rm \else \@normalsize\fi}
  63.  
  64. % \load{SIZE}{STYLE} : Solves anomaly of loaded-on-demand font
  65. %    used for first time in math mode.  Give this command outside math
  66. %    mode, before formula using it for first time.
  67. \def\load#1#2{\let\@tempa\@currsize \let\@currsize\relax #1#2\@tempa}
  68.  
  69. % \newfont{\CMD}{FONT} defines \CMD to be the font FONT.
  70. %    It is equivalent to \font \CMD = FONT
  71. % \symbol{NUM} == \char NUM
  72.  
  73. \def\newfont#1#2{\@ifdefinable #1{\font #1=#2\relax}}
  74. \def\symbol#1{\char #1\relax}
  75.  
  76.  
  77.  
  78. % \@getfont \STYLE \FAM \@FONTSIZE{LOADING.INFO}
  79. %   \STYLE       = style command
  80. %   \FAM         = a control sequence defined by \newfam\FAM
  81. %   \@FONTSIZE   = the @fontsize command for the current size. 
  82. %   LOADING.INFO = information needed to load the font--e.g., 
  83. %                  amtti10 \magstep 2
  84. %   Does the following, where \FONTNAME denotes a new unique, untypeable
  85. %   font name:
  86. %    1. Executes  \font \FONTNAME = LOADING.INFO 
  87. %    2. Appends '\textfont FAM \FONTNAME \def\STYLE{\fam \FAM \FONTNAME}' 
  88. %       to the definition of \@FONTSIZE.
  89. %    3. Executes \@FONTSIZE \STYLE.
  90. %
  91. % \@nohyphens\STYLE\@FONTSIZE
  92. %   Used right after \@getfont to set \hyphenchar of the new font to -1,
  93. %   thereby prohibiting hyphenation.  It is used with \tt fonts.
  94. %   (\@nohyphens was added on 12/18/85)
  95. %
  96. % \@subfont \STYLE \REPSTYLE 
  97. %   \STYLE, \REPSTYLE = type style commands.
  98. %   Types warning message and defines uses \REPSTYLE.
  99. %
  100. % \@onesizefont \STYLE {LOADING.INFO}
  101. %   Defines \STYLE to be a typestyle that exists only for the \normalsize
  102. %   size.  It produces the font specified by LOADING.INFO
  103. %
  104. % \@addfontinfo\@FONTSIZE{DEFS}
  105. %    Expands DEFS and adds to the definition of \@FONTSIZE. Items that should 
  106. %    not be expanded should be protected with \@prtct---except no protection
  107. %    is needed for '\def\foo', only for the contents of the definition.
  108. %
  109. % \@nomath\CS : Types a warning '\CS used in math mode' if encountered
  110. %    in math mode.
  111.  
  112. % Remove \outer from definition of \newfam
  113. \def\newfam{\alloc@8\fam\chardef\sixt@@n}
  114.  
  115. \def\@setsize#1#2#3#4{\@nomath#1\let\@currsize#1\baselineskip
  116.    #2\setbox\strutbox\hbox{\vrule height.7\baselineskip
  117.       depth.3\baselineskip width\z@}\baselineskip\baselinestretch\baselineskip
  118.    \normalbaselineskip\baselineskip#3#4}
  119.  
  120. \newif\if@bold
  121.  
  122. \let\@prtct=\relax
  123.  
  124. \def\@addfontinfo#1#2{{\def\@prtct{\noexpand
  125.     \@prtct\noexpand}\def\def{\noexpand\def\noexpand}\xdef#1{#1#2}}}
  126.  
  127. \def\@getfont#1#2#3#4{\@ifundefined{\string #1\string #3}{\global\expandafter
  128.     \font \csname \string #1\string #3\endcsname #4\relax 
  129.      \@addfontinfo#3{\textfont #2\csname \string #1\string #3\endcsname 
  130.      \scriptfont #2\csname \string #1\string #3\endcsname 
  131.      \scriptscriptfont #2\csname \string #1\string #3\endcsname 
  132.      \def#1{\fam #2\csname\string #1\string #3\endcsname}}}{}#3#1}
  133.  
  134. \def\@nohyphens#1#2{\global\expandafter \hyphenchar\csname 
  135.    \string #1\string #2\endcsname \m@ne}
  136.  
  137. \def\@subfont#1#2{\@warning{No \string#1\space typeface in 
  138.         this size, using \string#2}#2}
  139.  
  140. \def\@onesizefont#1#2{\expandafter\newfam\csname fm\string#1\endcsname
  141.   \global\expandafter\font\csname ft\string#1\endcsname #2\relax
  142.   \gdef#1{\ifx \@currsize\normalsize \@ftfam#1\else
  143.   \@warning{Typeface \string#1\space available only in 
  144.   \string\normalsize, using \string\rm}\gdef #1{\ifx \@currsize\normalsize 
  145.   \textfont\@fontfam#1 \scriptfont\@fontfam#1 \scriptscriptfont
  146.   \@fontfam#1\@ftfam#1\else \rm\fi}#1\fi}#1}
  147.  
  148. \def\@ftfam#1{\fam\csname fm\string#1\endcsname\csname ft\string#1\endcsname}
  149.  
  150. \def\@nomath#1{\ifmmode \@warning{\string#1\space in math mode.}\fi}
  151. \def\@nomathbold{\ifmmode \@warning{\string\mathbold\space in math mode.}\fi}
  152.  
  153. % The following definitions save token space.  E.g., using \@height 
  154. % instead of height saves 5 tokens at the cost in time of one macro 
  155. % expansion.
  156.  
  157. \def\@height{height}
  158. \def\@depth{depth}
  159. \def\@width{width}
  160.  
  161. \def\@magscale#1{ scaled \magstep #1}
  162. \def\@halfmag{ scaled \magstephalf}
  163. \def\@ptscale#1{ scaled #100}
  164.  
  165.  
  166. %% FONT-CUSTOMIZING:  The following \font commands define the
  167. %% preloaded LaTeX fonts.  Font names should be changed to cause
  168. %% different fonts to be loaded in place of these particular AMR fonts.
  169. %% \font commands should be added or deleted to change which fonts
  170. %% are preloaded.
  171.  
  172. % five point
  173.  \font\fivrm  = amr5               % roman
  174.  \font\fivmi  = ammi5              % math italic
  175.     \skewchar\fivmi ='177          %  for placement of accents
  176. %\font\fivmib = ambi10  \@ptscale5 % bold math italic
  177.  \font\fivsy  = amsy5              % math symbols
  178.     \skewchar\fivsy ='60           %   for placement of math accents
  179. %\font\fivsyb = ambsy10 \@ptscale5 % bold math symbols
  180. %\font\fivit  = amti7   scaled 714 % text italic
  181. %\font\fivsl  = amsl10  \@ptscale5 % slanted
  182. %\font\fivbf  = ambx7   scaled 714 % extended bold 
  183. %\font\fivbfs = ambxsl10\@ptscale5 % extended bold slanted
  184. %\font\fivtt  = amtt10  \@ptscale5 % typewriter
  185. %\font\fivtti = amitt10 \@ptscale5 % italic typewriter
  186. %\font\fivtts = amsltt10\@ptscale5 % slanted typewriter
  187. %\font\fivsf  = amss10  \@ptscale5 % sans serif
  188. %\font\fivsfi = amssi10 \@ptscale5 % italic sans serif
  189. %\font\fivsfb = amssbx10\@ptscale5 % bold sans serif
  190. %\font\fivsc  = amcsc10 \@ptscale5 % small caps
  191.  \font\fivly  = lasy5             % LaTeX symbols
  192. %\font\fivlyb = lasyb10 \@ptscale5 % LaTeX symbols
  193. %\font\fivuit = amu10   \@ptscale5 % unslanted italic
  194.  
  195. % six point
  196.  \font\sixrm  = amr6               % roman
  197.  \font\sixmi  = ammi6              % math italic
  198.     \skewchar\sixmi ='177          %  for placement of accents
  199. %\font\sixmib = ambi10  \@ptscale6 % bold math italic
  200.  \font\sixsy  = amsy6              % math symbols
  201.     \skewchar\sixsy ='60           %   for placement of math accents
  202. %\font\sixsyb = ambsy10 \@ptscale6 % bold math symbols
  203. %\font\sixit  = amti7   scaled 857 % text italic
  204. %\font\sixsl  = amsl10  \@ptscale6 % slanted
  205. %\font\sixbf  = ambx7   scaled 857 % extended bold 
  206. %\font\sixbfs = ambxsl10\@ptscale6 % extended bold slanted
  207. %\font\sixtt  = amtt10  \@ptscale6 % typewriter
  208. %\font\sixtti = amitt10 \@ptscale6 % italic typewriter
  209. %\font\sixtts = amsltt10\@ptscale6 % slanted typewriter
  210. %\font\sixsf  = amss10  \@ptscale6 % sans serif
  211. %\font\sixsfi = amssi10 \@ptscale6 % italic sans serif
  212. %\font\sixsfb = amssbx10\@ptscale6 % bold sans serif
  213. %\font\sixsc  = amcsc10 \@ptscale6 % small caps
  214.  \font\sixly  = lasy6             % LaTeX symbols
  215. %\font\sixlyb = lasyb10 \@ptscale6 % LaTeX symbols
  216. %\font\sixuit = amu10   \@ptscale6 % unslanted italic
  217.  
  218. % seven point
  219.  \font\sevrm  = amr7               % roman
  220.  \font\sevmi  = ammi7              % math italic
  221.     \skewchar\sevmi ='177          %  for placement of accents
  222. %\font\sevmib = ambi10  \@ptscale7 % bold math italic
  223.  \font\sevsy  = amsy7              % math symbols
  224.     \skewchar\sevsy ='60           %   for placement of math accents
  225. %\font\sevsyb = ambsy10 \@ptscale7 % bold math symbols
  226.  \font\sevit  = amti7              % text italic
  227. %\font\sevsl  = amsl10  \@ptscale7 % slanted
  228. %\font\sevbf  = ambx7              % extended bold 
  229. %\font\sevbfs = ambxsl10\@ptscale7 % extended bold slanted
  230. %\font\sevtt  = amtt10  \@ptscale7 % typewriter
  231. %\font\sevtti = amitt10 \@ptscale7 % italic typewriter
  232. %\font\sevtts = amsltt10\@ptscale7 % slanted typewriter
  233. %\font\sevsf  = amss10  \@ptscale7 % sans serif
  234. %\font\sevsfi = amssi10 \@ptscale7 % italic sans serif
  235. %\font\sevsfb = amssbx10\@ptscale7 % bold sans serif
  236. %\font\sevsc  = amcsc10 \@ptscale7 % small caps
  237.  \font\sevly  = lasy7             % LaTeX symbols
  238. %\font\sevlyb = lasyb10 \@ptscale7 % LaTeX symbols
  239. %\font\sevuit = amu10   \@ptscale7 % unslanted italic
  240.  
  241. % eight point
  242.  \font\egtrm  = amr8               % roman
  243.  \font\egtmi  = ammi8              % math italic
  244.     \skewchar\egtmi ='177          %  for placement of accents
  245. %\font\egtmib = ambi10  \@ptscale8 % bold math italic
  246.  \font\egtsy  = amsy8              % math symbols
  247.     \skewchar\egtsy ='60           %   for placement of math accents
  248. %\font\egtsyb = ambsy10 \@ptscale8 % bold math symbols
  249.  \font\egtit  = amti8              % text italic
  250. %\font\egtsl  = amsl8              % slanted
  251. %\font\egtbf  = ambx8              % extended bold 
  252. %\font\egtbfs = ambxsl10\@ptscale8 % extended bold slanted
  253. %\font\egttt  = amtt8              % typewriter
  254. %\font\egttti = amitt10 \@ptscale8 % italic typewriter
  255. %\font\egttts = amsltt10\@ptscale8 % slanted typewriter
  256. %\font\egtsf  = amss10  \@ptscale8 % sans serif
  257. %\font\egtsfi = amssi10 \@ptscale8 % italic sans serif
  258. %\font\egtsfb = amssbx10\@ptscale8 % bold sans serif
  259. %\font\egtsc  = amcsc10 \@ptscale8 % small caps
  260.  \font\egtly  = lasy8             % LaTeX symbols
  261. %\font\egtlyb = lasyb10 \@ptscale8 % LaTeX symbols
  262. %\font\egtuit = amu10   \@ptscale8 % unslanted italic
  263.  
  264.  
  265. % nine point
  266.  \font\ninrm  = amr9               % roman
  267.  \font\ninmi  = ammi9              % math italic
  268.     \skewchar\ninmi ='177          %  for placement of accents
  269. %\font\ninmib = ambi10  \@ptscale9 % bold math italic
  270.  \font\ninsy  = amsy9              % math symbols
  271.     \skewchar\ninsy ='60           %   for placement of math accents
  272. %\font\ninsyb = ambsy10 \@ptscale9 % bold math symbols
  273.  \font\ninit  = amti9              % text italic
  274. %\font\ninsl  = amsl9              % slanted
  275.  \font\ninbf  = ambx9              % extended bold 
  276. %\font\ninbfs = ambxsl10\@ptscale9 % extended bold slanted
  277.  \font\nintt  = amtt9              % typewriter
  278.     \hyphenchar\nintt = -1         %  suppress hyphenation in \tt font
  279. %\font\nintti = amitt10 \@ptscale9 % italic typewriter
  280. %\font\nintts = amsltt10\@ptscale9 % slanted typewriter
  281. %\font\ninsf  = amss10  \@ptscale9 % sans serif
  282. %\font\ninsfi = amssi10 \@ptscale9 % italic sans serif
  283. %\font\ninsfb = amssbx10\@ptscale9 % bold sans serif
  284. %\font\ninsc  = amcsc10 \@ptscale9 % small caps
  285.  \font\ninly  = lasy9             % LaTeX symbols
  286. %\font\ninlyb = lasyb10 \@ptscale9 % LaTeX symbols
  287. %\font\ninuit = amu10   \@ptscale9 % unslanted italic
  288.  
  289. % ten point
  290.  \font\tenrm  = amr10    % roman
  291.  \font\tenmi  = ammi10   % math italic
  292.     \skewchar\tenmi ='177  %  for placement of accents
  293. %\font\tenmib = ambi10   % bold math italic
  294.  \font\tensy  = amsy10   % math symbols
  295.     \skewchar\tensy ='60 %   for placement of math accents
  296. %\font\tensyb = ambsy10  % bold symbols
  297.  \font\tenit  = amti10   % text italic
  298.  \font\tensl  = amsl10   % slanted
  299.  \font\tenbf  = ambx10   % extended bold 
  300. %\font\tenbfs = ambxsl10 % extended bold slanted
  301.  \font\tentt  = amtt10   % typewriter
  302.     \hyphenchar\tentt = -1         %  suppress hyphenation in \tt font
  303. %\font\tentti = amitt10  % italic typewriter
  304. %\font\tentts = amsltt10 % slanted typewriter
  305.  \font\tensf  = amss10   % sans serif
  306. %\font\tensfi = amssi10  % italic sans serif
  307. %\font\tensfb = amssbx10 % bold sans serif
  308. %\font\tensc  = amcsc10  % small caps
  309.  \font\tenly  = lasy10  % LaTeX symbols
  310. %\font\tenlyb = lasyb10 % bold LaTeX symbols
  311. %\font\tenuit = amu10    % unslanted italic
  312.  
  313. % eleven point
  314.  \font\elvrm  = amr10    \@halfmag % roman  
  315.  \font\elvmi  = ammi10   \@halfmag % math italic
  316.     \skewchar\elvmi ='177          %  for placement of accents
  317. %\font\elvmib = ambi10   \@halfmag % bold math italic
  318.  \font\elvsy  = amsy10   \@halfmag % math symbols
  319.     \skewchar\elvsy ='60           %   for placement of math accents
  320. %\font\elvsyb = ambsy10  \@halfmag % bold symbols
  321.  \font\elvit  = amti10   \@halfmag % text italic
  322.  \font\elvsl  = amsl10   \@halfmag % slanted
  323.  \font\elvbf  = ambx10   \@halfmag % exelvded bold 
  324. %\font\elvbfs = ambxsl10 \@halfmag % exelvded bold slanted
  325.  \font\elvtt  = amtt10   \@halfmag % typewriter
  326.     \hyphenchar\elvtt = -1         %  suppress hyphenation in \tt font
  327. %\font\elvtti = amitt10  \@halfmag % italic typewriter
  328. %\font\elvtts = amsltt10 \@halfmag % slanted typewriter
  329.  \font\elvsf  = amss10   \@halfmag % sans serif
  330. %\font\elvsfi = amssi10  \@halfmag % italic sans serif
  331. %\font\elvsfb = amssbx10 \@halfmag % bold sans serif
  332. %\font\elvsc  = amcsc10  \@halfmag % small caps
  333.  \font\elvly  = lasy10  \@halfmag % LaTeX symbols
  334. %\font\elvlyb = lasyb10 \@halfmag % bold LaTeX symbols
  335. %\font\elvuit = amu10    \@halfmag % unslanted italic
  336.  
  337. % twelve point
  338.  \font\twlrm  = amr10    \@magscale1 % roman  
  339.  \font\twlmi  = ammi10   \@magscale1 % math italic
  340.     \skewchar\twlmi ='177          %  for placement of accents
  341. %\font\twlmib = ambi10   \@magscale1 % bold math italic
  342.  \font\twlsy  = amsy10   \@magscale1 % math symbols
  343.     \skewchar\twlsy ='60           %   for placement of math accents
  344. %\font\twlsyb = ambsy10  \@magscale1 % bold symbols
  345.  \font\twlit  = amti10   \@magscale1 % text italic
  346.  \font\twlsl  = amsl10   \@magscale1 % slanted
  347.  \font\twlbf  = ambx10   \@magscale1 % extended bold 
  348. %\font\twlbfs = ambxsl10 \@magscale1 % extended bold slanted
  349.  \font\twltt  = amtt10   \@magscale1 % typewriter
  350.     \hyphenchar\twltt = -1         %  suppress hyphenation in \tt font
  351. %\font\twltti = amitt10  \@magscale1 % italic typewriter
  352. %\font\twltts = amsltt10 \@magscale1 % slanted typewriter
  353.  \font\twlsf  = amss10   \@magscale1 % sans serif
  354. %\font\twlsfi = amssi10  \@magscale1 % italic sans serif
  355. %\font\twlsfb = amssbx10 \@magscale1 % bold sans serif
  356. %\font\twlsc  = amcsc10  \@magscale1 % small caps
  357.  \font\twlly  = lasy10  \@magscale1 % LaTeX symbols
  358. %\font\twllyb = lasyb10 \@magscale1 % bold LaTeX symbols
  359. %\font\twluit = amu10    \@magscale1 % unslanted italic
  360.  
  361. % fourteen point
  362.  \font\frtnrm  = amr10    \@magscale2 % roman  
  363.  \font\frtnmi  = ammi10   \@magscale2 % math italic
  364.     \skewchar\frtnmi ='177          %  for placement of accents
  365. %\font\frtnmib = ambi10   \@magscale2 % bold math italic
  366.  \font\frtnsy  = amsy10   \@magscale2 % math symbols
  367.     \skewchar\frtnsy ='60           %   for placement of math accents
  368. %\font\frtnsyb = ambsy10  \@magscale2 % bold symbols
  369. %\font\frtnit  = amti10   \@magscale2 % text italic
  370. %\font\frtnsl  = amsl10   \@magscale2 % slanted
  371.  \font\frtnbf  = ambx10   \@magscale2 % extended bold 
  372. %\font\frtnbfs = ambxsl10 \@magscale2 % extended bold slanted
  373. %\font\frtntt  = amtt10   \@magscale2 % typewriter
  374. %\font\frtntti = amitt10  \@magscale2 % italic typewriter
  375. %\font\frtntts = amsltt10 \@magscale2 % slanted typewriter
  376. %\font\frtnsf  = amss10   \@magscale2 % sans serif
  377. %\font\frtnsfi = amssi10  \@magscale2 % italic sans serif
  378. %\font\frtnsfb = amssbx10 \@magscale2 % bold sans serif
  379. %\font\frtnsc  = amcsc10  \@magscale2 % small caps
  380.  \font\frtnly  = lasy10  \@magscale2 % LaTeX symbols
  381. %\font\frtnlyb = lasyb10 \@magscale2 % bold LaTeX symbols
  382. %\font\frtnuit = amu10    \@magscale2 % unslanted italic
  383.  
  384. % seventeen point
  385.  \font\svtnrm  = amr10    \@magscale3 % roman  
  386.  \font\svtnmi  = ammi10   \@magscale3 % math italic
  387.     \skewchar\svtnmi ='177          %  for placement of accents
  388. %\font\svtnmib = ambi10   \@magscale3 % bold math italic
  389.  \font\svtnsy  = amsy10   \@magscale3 % math symbols
  390.     \skewchar\svtnsy ='60           %   for placement of math accents
  391. %\font\svtnsyb = ambsy10  \@magscale3 % bold symbols
  392. %\font\svtnit  = amti10   \@magscale3 % text italic
  393. %\font\svtnsl  = amsl10   \@magscale3 % slanted
  394.  \font\svtnbf  = ambx10   \@magscale3 % extended bold 
  395. %\font\svtnbfs = ambxsl10 \@magscale3 % extended bold slanted
  396. %\font\svtntt  = amtt10   \@magscale3 % typewriter
  397. %\font\svtntti = amitt10  \@magscale3 % italic typewriter
  398. %\font\svtntts = amsltt10 \@magscale3 % slanted typewriter
  399. %\font\svtnsf  = amss10   \@magscale3 % sans serif
  400. %\font\svtnsfi = amssi10  \@magscale3 % italic sans serif
  401. %\font\svtnsfb = amssbx10 \@magscale3 % bold sans serif
  402. %\font\svtnsc  = amcsc10  \@magscale3 % small caps
  403.  \font\svtnly  = lasy10  \@magscale3 % LaTeX symbols
  404. %\font\svtnlyb = lasyb10 \@magscale3 % bold LaTeX symbols
  405. %\font\svtnuit = amu10    \@magscale3 % unslanted italic
  406.  
  407. % twenty point
  408.  \font\twtyrm  = amr10    \@magscale4 % roman  
  409.  \font\twtymi  = ammi10   \@magscale4 % math italic
  410.     \skewchar\twtymi ='177          %  for placement of accents
  411. %\font\twtymib = ambi10   \@magscale4 % bold math italic
  412.  \font\twtysy  = amsy10   \@magscale4 % math symbols
  413.     \skewchar\twtysy ='60           %   for placement of math accents
  414. %\font\twtysyb = ambsy10  \@magscale4 % bold symbols
  415. %\font\twtyit  = amti10   \@magscale4 % text italic
  416. %\font\twtysl  = amsl10   \@magscale4 % slanted
  417. %\font\twtybf  = ambx10   \@magscale4 % extended bold 
  418. %\font\twtybfs = ambxsl10 \@magscale4 % extended bold slanted
  419. %\font\twtytt  = amtt10   \@magscale4 % typewriter
  420. %\font\twtytti = amitt10  \@magscale4 % italic typewriter
  421. %\font\twtytts = amsltt10 \@magscale4 % slanted typewriter
  422. %\font\twtysf  = amss10   \@magscale4 % sans serif
  423. %\font\twtysfi = amssi10  \@magscale4 % italic sans serif
  424. %\font\twtysfb = amssbx10 \@magscale4 % bold sans serif
  425. %\font\twtysc  = amcsc10  \@magscale4 % small caps
  426.  \font\twtyly  = lasy10  \@magscale4 % LaTeX symbols
  427. %\font\twtylyb = lasyb10 \@magscale4 % bold LaTeX symbols
  428. %\font\twtyuit = amu10    \@magscale4 % unslanted italic
  429.  
  430. % twenty-five point
  431.  \font\twfvrm  = amr10    \@magscale5 % roman  
  432. %\font\twfvmi  = ammi10   \@magscale5 % math italic
  433. %\font\twfvmib = ambi10   \@magscale5 % bold math italic
  434. %\font\twfvsy  = amsy10   \@magscale5 % math symbols
  435. %\font\twfvsyb = ambsy10  \@magscale5 % bold symbols
  436. %\font\twfvit  = amti10   \@magscale5 % text italic
  437. %\font\twfvsl  = amsl10   \@magscale5 % slanted
  438. %\font\twfvbf  = ambx10   \@magscale5 % extended bold 
  439. %\font\twfvbfs = ambxsl10 \@magscale5 % extended bold slanted
  440. %\font\twfvtt  = amtt10   \@magscale5 % typewriter
  441. %\font\twfvtti = amitt10  \@magscale5 % italic typewriter
  442. %\font\twfvtts = amsltt10 \@magscale5 % slanted typewriter
  443. %\font\twfvsf  = amss10   \@magscale5 % sans serif
  444. %\font\twfvsfi = amssi10  \@magscale5 % italic sans serif
  445. %\font\twfvsfb = amssbx10 \@magscale5 % bold sans serif
  446. %\font\twfvsc  = amcsc10  \@magscale5 % small caps
  447. %\font\twfvly  = lasy10   \@magscale5 % LaTeX symbols
  448. %\font\twfvlyb = lasyb10  \@magscale5 % bold LaTeX symbols
  449. %\font\twfvuit = amu10    \@magscale5 % unslanted italic
  450.  
  451. % Math extension
  452.  \font\tenex   = amex10 
  453.  
  454. % line & circle fonts 
  455. \font\tenln    = line10
  456. \font\tenlnw   = linew10  
  457. \font\tencirc  = circle10
  458. \font\tencircw = circlew10 
  459.  
  460. % Change made 6 May 86: `\@warning' replaced by `\immediate\write 15' 
  461. % since it's not defined when lfonts.tex is read by lplain.tex.
  462. %
  463. \ifnum\fontdimen8\tenln=\fontdimen8\tencirc \else 
  464.   \immediate\write 15{Incompatible thin line and circle fonts}\fi
  465. \ifnum\fontdimen8\tenlnw=\fontdimen8\tencircw \else 
  466.   \immediate\write 15{Incompatible thick line and circle fonts}\fi
  467.  
  468.  
  469. % protected font names
  470. \def\rm{\protect\prm}
  471. \def\it{\protect\pit}
  472. \def\bf{\protect\pbf}
  473. \def\sl{\protect\psl}
  474. \def\sf{\protect\psf}
  475. \def\sc{\protect\psc}
  476. \def\tt{\protect\ptt}
  477.  
  478. %% FONT-CUSTOMIZING:  The following definitions define certain commands
  479. %% to be abbreviations for certain font names.  These commands are used
  480. %% below in \@getfont commands, which load the loaded-on-demand fonts.
  481. %% This is done only to save space.  To change the fonts that are loaded
  482. %% on demand, one can either change these definitions or else change
  483. %% the arguments of the \@getfont commands.  
  484.  
  485. \def\@mbi{ambi10}
  486. \def\@mbsy{ambsy10}
  487. \def\@mcsc{amcsc10}
  488. \def\@mss{amss10}
  489. \def\@lasyb{lasyb10}
  490.  
  491. % families
  492.  
  493. \newfam\itfam      % \it is family 4
  494. \newfam\slfam      % \sl is family 5
  495. \newfam\bffam      % \bf is family 6
  496. \newfam\ttfam      % \tt is family 7
  497. \newfam\sffam      % \sf is family 8
  498. \newfam\scfam      % \sf is family 9
  499. \newfam\lyfam      % \ly is family 10
  500.  
  501. \def\cal{\fam\tw@}
  502. \def\mit{\fam\@ne}
  503.  
  504. \def\@setstrut{\setbox\strutbox=\hbox{\vrule \@height .7\baselineskip
  505.     \@depth .3\baselineskip \@width\z@}}
  506.  
  507.  
  508. %% FONT-CUSTOMIZING: The commands \vpt, \vipt, ... , \xxvpt perform all
  509. %% the declarations needed to change the type size to 5pt, 6pt, ... ,
  510. %% 25pt.  To see how this works, consider the definition of \viipt,
  511. %% which determines the fonts used in a 7pt type size.  The command
  512. %%    \def\pit{\fam\itfam\sevit}
  513. %% means that the \it command causes the preloaded \sevit font to
  514. %% be used--this font was defined earlier with a \font\sevit...
  515. %% command.  The commands
  516. %%     \textfont\itfam\sevit 
  517. %%     \scriptfont\itfam\sevit 
  518. %%     \scriptscriptfont\itfam\sevit 
  519. %% tell TeX to use the \sevit font for all three math-mode sizes
  520. %% (text, script, and scriptscript) for the 7pt size.  
  521. %% The fonts appearing in these commands must be preloaded.
  522. %% 
  523. %% The command 
  524. %%     \def\pbf{\@getfont\pbf\bffam\@viipt{ambx7}}
  525. %% declares \bf to use a loaded-on-demand font--namely, the font
  526. %% ambx7.
  527. %%
  528. %% The command
  529. %%     \def\ptt{\@subfont\tt\rm}
  530. %% declares that the \tt font is unavailable in the 7pt size, so
  531. %% the \rm font is used instead.  (The substituted type style should
  532. %% correspond to a preloaded size.)
  533.  
  534. \def\vpt{\textfont\z@\fivrm 
  535.   \scriptfont\z@\fivrm \scriptscriptfont\z@\fivrm
  536. \textfont\@ne\fivmi \scriptfont\@ne\fivmi \scriptscriptfont\@ne\fivmi
  537. \textfont\tw@\fivsy \scriptfont\tw@\fivsy \scriptscriptfont\tw@\fivsy
  538. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  539. \def\prm{\fam\z@\fivrm}%
  540. \def\unboldmath{\everymath{}\everydisplay{}\@nomath
  541.   \unboldmath\fam\@ne\@boldfalse}\@boldfalse
  542. \def\boldmath{\@subfont\boldmath\unboldmath}%
  543. \def\pit{\@getfont\pit\itfam\@vpt{amti7 scaled714}}%
  544. \def\psl{\@subfont\sl\it}%
  545. \def\pbf{\@getfont\pbf\bffam\@vpt{ambx7 scaled 714}}%
  546. \def\ptt{\@subfont\tt\rm}%
  547. \def\psf{\@subfont\sf\rm}%
  548. \def\psc{\@subfont\sc\rm}%
  549. \def\ly{\fam\lyfam\fivly}\textfont\lyfam\fivly 
  550.     \scriptfont\lyfam\fivly \scriptscriptfont\lyfam\fivly 
  551. \@setstrut\rm}
  552.  
  553. \def\@vpt{}
  554.  
  555. \def\vipt{\textfont\z@\sixrm 
  556.   \scriptfont\z@\sixrm \scriptscriptfont\z@\sixrm
  557. \textfont\@ne\sixmi \scriptfont\@ne\sixmi \scriptscriptfont\@ne\sixmi
  558. \textfont\tw@\sixsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\sixsy
  559. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  560. \def\prm{\fam\z@\sixrm}%
  561. \def\unboldmath{\everymath{}\everydisplay{}\@nomath
  562.   \unboldmath\@boldfalse}\@boldfalse
  563. \def\boldmath{\@subfont\boldmath\unboldmath}%
  564. \def\pit{\@subfont\it\rm}%
  565. \def\psl{\@subfont\sl\rm}%
  566. \def\pbf{\@getfont\pbf\bffam\@vipt{ambx7 scaled857}}%
  567. \def\ptt{\@subfont\tt\rm}%
  568. \def\psf{\@subfont\sf\rm}%
  569. \def\psc{\@subfont\sc\rm}%
  570. \def\ly{\fam\lyfam\sixly}\textfont\lyfam\sixly 
  571.     \scriptfont\lyfam\sixly \scriptscriptfont\lyfam\sixly 
  572. \@setstrut\rm}
  573.  
  574. \def\@vipt{}
  575.  
  576. \def\viipt{\textfont\z@\sevrm 
  577.   \scriptfont\z@\sixrm \scriptscriptfont\z@\fivrm
  578. \textfont\@ne\sevmi \scriptfont\@ne\fivmi \scriptscriptfont\@ne\fivmi
  579. \textfont\tw@\sevsy \scriptfont\tw@\fivsy \scriptscriptfont\tw@\fivsy
  580. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  581. \def\prm{\fam\z@\sevrm}%
  582. \def\unboldmath{\everymath{}\everydisplay{}\@nomath
  583. \unboldmath\@boldfalse}\@boldfalse
  584. \def\boldmath{\@subfont\boldmath\unboldmath}%
  585. \def\pit{\fam\itfam\sevit}\textfont\itfam\sevit 
  586.    \scriptfont\itfam\sevit \scriptscriptfont\itfam\sevit 
  587. \def\psl{\@subfont\sl\it}%
  588. \def\pbf{\@getfont\pbf\bffam\@viipt{ambx7}}%
  589. \def\ptt{\@subfont\tt\rm}%
  590. \def\psf{\@subfont\sf\rm}%
  591. \def\psc{\@subfont\sc\rm}%
  592. \def\ly{\fam\lyfam\sevly}\textfont\lyfam\sevly 
  593.     \scriptfont\lyfam\fivly \scriptscriptfont\lyfam\fivly 
  594. \@setstrut \rm}
  595.  
  596. \def\@viipt{}
  597.  
  598. \def\viiipt{\textfont\z@\egtrm 
  599.   \scriptfont\z@\sixrm \scriptscriptfont\z@\fivrm
  600. \textfont\@ne\egtmi \scriptfont\@ne\sixmi \scriptscriptfont\@ne\fivmi
  601. \textfont\tw@\egtsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\fivsy
  602. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  603. \def\prm{\fam\z@\egtrm}%
  604. \def\unboldmath{\everymath{}\everydisplay{}\@nomath
  605. \unboldmath\@boldfalse}\@boldfalse
  606. \def\boldmath{\@subfont\boldmath\unboldmath}%
  607. \def\pit{\fam\itfam\egtit}\textfont\itfam\egtit 
  608.    \scriptfont\itfam\sevit \scriptscriptfont\itfam\sevit 
  609. \def\psl{\@getfont\psl\slfam\@viiipt{amsl8}}%
  610. \def\pbf{\@getfont\pbf\bffam\@viiipt{ambx8}}%
  611. \def\ptt{\@getfont\ptt\ttfam\@viiipt{amtt8}\@nohyphens\ptt\@viiipt}%
  612. \def\psf{\@getfont\psf\sffam\@viiipt{\@mss\@ptscale8}}%
  613. \def\psc{\@getfont\psc\scfam\@viiipt{\@mcsc\@ptscale8}}%
  614. \def\ly{\fam\lyfam\egtly}\textfont\lyfam\egtly 
  615.     \scriptfont\lyfam\sixly \scriptscriptfont\lyfam\fivly 
  616. \@setstrut \rm}
  617.  
  618. \def\@viiipt{}
  619.  
  620. \def\ixpt{\textfont\z@\ninrm 
  621.   \scriptfont\z@\sixrm \scriptscriptfont\z@\fivrm
  622. \textfont\@ne\ninmi \scriptfont\@ne\sixmi \scriptscriptfont\@ne\fivmi
  623. \textfont\tw@\ninsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\fivsy
  624. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  625. \def\prm{\fam\z@\ninrm}%
  626. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
  627.     \@boldfalse}\@boldfalse
  628. \def\boldmath{\@subfont\boldmath\unboldmath}%
  629. \def\pit{\fam\itfam\ninit}\textfont\itfam\ninit 
  630.    \scriptfont\itfam\sevit \scriptscriptfont\itfam\sevit 
  631. \def\psl{\@getfont\psl\slfam\@ixpt{amsl9}}%
  632. \def\pbf{\fam\bffam\ninbf}\textfont\bffam\ninbf 
  633.    \scriptfont\bffam\ninbf \scriptscriptfont\bffam\ninbf 
  634. \def\ptt{\fam\ttfam\nintt}\textfont\ttfam\nintt
  635.    \scriptfont\ttfam\nintt \scriptscriptfont\ttfam\nintt 
  636. \def\psf{\@getfont\psf\sffam\@ixpt{\@mss\@ptscale9}}%
  637. \def\psc{\@getfont\psc\scfam\@ixpt{\@mcsc\@ptscale9}}%
  638. \def\ly{\fam\lyfam\ninly}\textfont\lyfam\ninly 
  639.    \scriptfont\lyfam\sixly \scriptscriptfont\lyfam\fivly 
  640. \@setstrut \rm}
  641.  
  642. \def\@ixpt{}
  643.  
  644. \def\xpt{\textfont\z@\tenrm 
  645.   \scriptfont\z@\sevrm \scriptscriptfont\z@\fivrm
  646. \textfont\@ne\tenmi \scriptfont\@ne\sevmi \scriptscriptfont\@ne\fivmi
  647. \textfont\tw@\tensy \scriptfont\tw@\sevsy \scriptscriptfont\tw@\fivsy
  648. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  649. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
  650.           \textfont\@ne\tenmi 
  651.           \textfont\tw@\tensy \textfont\lyfam\tenly
  652.           \@boldfalse}\@boldfalse
  653. \def\boldmath{\@ifundefined{tenmib}{\global\font\tenmib\@mbi 
  654.    \global\font\tensyb\@mbsy 
  655.    \global\font\tenlyb\@lasyb\relax\@addfontinfo\@xpt
  656.    {\def\boldmath{\everymath{\mit}\everydisplay{\mit}\@prtct\@nomathbold
  657.         \textfont\@ne\tenmib \textfont\tw@\tensyb 
  658.         \textfont\lyfam\tenlyb \@prtct\@boldtrue}}}{}\@xpt\boldmath}%
  659. \def\prm{\fam\z@\tenrm}%
  660. \def\pit{\fam\itfam\tenit}\textfont\itfam\tenit \scriptfont\itfam\sevit
  661.     \scriptscriptfont\itfam\sevit
  662. \def\psl{\fam\slfam\tensl}\textfont\slfam\tensl 
  663.      \scriptfont\slfam\tensl \scriptscriptfont\slfam\tensl
  664. \def\pbf{\fam\bffam\tenbf}\textfont\bffam\tenbf 
  665.     \scriptfont\bffam\tenbf \scriptscriptfont\bffam\tenbf 
  666. \def\ptt{\fam\ttfam\tentt}\textfont\ttfam\tentt
  667.     \scriptfont\ttfam\tentt \scriptscriptfont\ttfam\tentt
  668. \def\psf{\fam\sffam\tensf}\textfont\sffam\tensf
  669.     \scriptfont\sffam\tensf \scriptscriptfont\sffam\tensf
  670. \def\psc{\@getfont\psc\scfam\@xpt{\@mcsc}}%
  671. \def\ly{\fam\lyfam\tenly}\textfont\lyfam\tenly 
  672.    \scriptfont\lyfam\sevly \scriptscriptfont\lyfam\fivly 
  673. \@setstrut \rm}
  674.  
  675. \def\@xpt{}
  676.  
  677. \def\xipt{\textfont\z@\elvrm 
  678.   \scriptfont\z@\egtrm \scriptscriptfont\z@\sixrm
  679. \textfont\@ne\elvmi \scriptfont\@ne\egtmi \scriptscriptfont\@ne\sixmi
  680. \textfont\tw@\elvsy \scriptfont\tw@\egtsy \scriptscriptfont\tw@\sixsy
  681. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  682. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
  683.           \textfont\@ne\elvmi \textfont\tw@\elvsy 
  684.           \textfont\lyfam\elvly \@boldfalse}\@boldfalse
  685. \def\boldmath{\@ifundefined{elvmib}{\global\font\elvmib\@mbi\@halfmag 
  686.          \global\font\elvsyb\@mbsy\@halfmag
  687.          \global\font\elvlyb\@lasyb\@halfmag\relax\@addfontinfo\@xipt
  688.          {\def\boldmath{\everymath{\mit}\everydisplay{\mit}\@prtct\@nomathbold
  689.                 \textfont\@ne\elvmib \textfont\tw@\elvsyb 
  690.                 \textfont\lyfam\elvlyb\@prtct\@boldtrue}}}{}\@xipt\boldmath}%
  691. \def\prm{\fam\z@\elvrm}%
  692. \def\pit{\fam\itfam\elvit}\textfont\itfam\elvit 
  693.    \scriptfont\itfam\egtit \scriptscriptfont\itfam\sevit
  694. \def\psl{\fam\slfam\elvsl}\textfont\slfam\elvsl 
  695.     \scriptfont\slfam\tensl \scriptscriptfont\slfam\tensl 
  696. \def\pbf{\fam\bffam\elvbf}\textfont\bffam\elvbf 
  697.    \scriptfont\bffam\ninbf \scriptscriptfont\bffam\ninbf 
  698. \def\ptt{\fam\ttfam\elvtt}\textfont\ttfam\elvtt
  699.    \scriptfont\ttfam\nintt \scriptscriptfont\ttfam\nintt 
  700. \def\psf{\fam\sffam\elvsf}\textfont\sffam\elvsf
  701.     \scriptfont\sffam\tensf \scriptscriptfont\sffam\tensf
  702. \def\psc{\@getfont\psc\scfam\@xipt{\@mcsc\@halfmag}}%
  703. \def\ly{\fam\lyfam\elvly}\textfont\lyfam\elvly 
  704.    \scriptfont\lyfam\egtly \scriptscriptfont\lyfam\sixly 
  705. \@setstrut \rm}
  706.  
  707. \def\@xipt{}
  708.  
  709. \def\xiipt{\textfont\z@\twlrm 
  710.   \scriptfont\z@\egtrm \scriptscriptfont\z@\sixrm
  711. \textfont\@ne\twlmi \scriptfont\@ne\egtmi \scriptscriptfont\@ne\sixmi
  712. \textfont\tw@\twlsy \scriptfont\tw@\egtsy \scriptscriptfont\tw@\sixsy
  713. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  714. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
  715.           \textfont\@ne\twlmi 
  716.           \textfont\tw@\twlsy \textfont\lyfam\twlly
  717.           \@boldfalse}\@boldfalse
  718. \def\boldmath{\@ifundefined{twlmib}{\global\font\twlmib\@mbi\@magscale1\global
  719.         \font\twlsyb\@mbsy \@magscale1\global\font
  720.          \twllyb\@lasyb\@magscale1\relax\@addfontinfo\@xiipt
  721.               {\def\boldmath{\everymath
  722.                 {\mit}\everydisplay{\mit}\@prtct\@nomathbold
  723.                 \textfont\@ne\twlmib \textfont\tw@\twlsyb 
  724.                 \textfont\lyfam\twllyb\@prtct\@boldtrue}}}{}\@xiipt\boldmath}%
  725. \def\prm{\fam\z@\twlrm}%
  726. \def\pit{\fam\itfam\twlit}\textfont\itfam\twlit \scriptfont\itfam\egtit
  727.    \scriptscriptfont\itfam\sevit
  728. \def\psl{\fam\slfam\twlsl}\textfont\slfam\twlsl 
  729.      \scriptfont\slfam\tensl \scriptscriptfont\slfam\tensl
  730. \def\pbf{\fam\bffam\twlbf}\textfont\bffam\twlbf 
  731.    \scriptfont\bffam\ninbf \scriptscriptfont\bffam\ninbf 
  732. \def\ptt{\fam\ttfam\twltt}\textfont\ttfam\twltt
  733.    \scriptfont\ttfam\nintt \scriptscriptfont\ttfam\nintt 
  734. \def\psf{\fam\sffam\twlsf}\textfont\sffam\twlsf
  735.     \scriptfont\sffam\tensf \scriptscriptfont\sffam\tensf
  736. \def\psc{\@getfont\psc\scfam\@xiipt{\@mcsc\@magscale1}}%
  737. \def\ly{\fam\lyfam\twlly}\textfont\lyfam\twlly 
  738.    \scriptfont\lyfam\egtly \scriptscriptfont\lyfam\sixly
  739.  \@setstrut \rm}
  740.  
  741. \def\@xiipt{}
  742.  
  743. \def\xivpt{\textfont\z@\frtnrm 
  744.   \scriptfont\z@\tenrm \scriptscriptfont\z@\sevrm
  745. \textfont\@ne\frtnmi \scriptfont\@ne\tenmi \scriptscriptfont\@ne\sevmi
  746. \textfont\tw@\frtnsy \scriptfont\tw@\tensy \scriptscriptfont\tw@\sevsy
  747. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  748. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath 
  749.           \textfont\@ne\frtnmi \textfont\tw@\frtnsy 
  750.           \textfont\lyfam\frtnly \@boldfalse}\@boldfalse
  751. \def\boldmath{\@ifundefined{frtnmib}{\global\font
  752.         \frtnmib\@mbi\@magscale2\global\font\frtnsyb\@mbsy\@magscale2
  753.          \global\font\frtnlyb\@lasyb\@magscale2\relax\@addfontinfo\@xivpt
  754.                {\def\boldmath{\everymath
  755.                 {\mit}\everydisplay{\mit}\@prtct\@nomathbold
  756.               \textfont\@ne\frtnmib \textfont\tw@\frtnsyb 
  757.               \textfont\lyfam\frtnlyb\@prtct\@boldtrue}}}{}\@xivpt\boldmath}%
  758. \def\prm{\fam\z@\frtnrm}%
  759. \def\pit{\@getfont\pit\itfam\@xivpt{amti10\@magscale2}}%
  760. \def\psl{\@getfont\psl\slfam\@xivpt{amsl10\@magscale2}}%
  761. \def\pbf{\fam\bffam\frtnbf}\textfont\bffam\frtnbf 
  762.    \scriptfont\bffam\tenbf \scriptscriptfont\bffam\ninbf 
  763. \def\ptt{\@getfont\ptt\ttfam\@xivpt{amtt10\@magscale2}\@nohyphens\ptt\@xivpt}%
  764. \def\psf{\@getfont\psf\sffam\@xivpt{\@mss\@magscale2}}%
  765. \def\psc{\@getfont\psc\scfam\@xivpt{\@mcsc\@magscale2}}%
  766. \def\ly{\fam\lyfam\frtnly}\textfont\lyfam\frtnly 
  767.    \scriptfont\lyfam\tenly \scriptscriptfont\lyfam\sevly 
  768. \@setstrut \rm}
  769.  
  770. \def\@xivpt{}
  771.  
  772. \def\xviipt{\textfont\z@\svtnrm 
  773.   \scriptfont\z@\twlrm \scriptscriptfont\z@\tenrm
  774. \textfont\@ne\svtnmi \scriptfont\@ne\twlmi \scriptscriptfont\@ne\tenmi
  775. \textfont\tw@\svtnsy \scriptfont\tw@\twlsy \scriptscriptfont\tw@\tensy
  776. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  777. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
  778.           \textfont\@ne\svtnmi \textfont\tw@\svtnsy \textfont\lyfam\svtnly
  779.           \@boldfalse}\@boldfalse
  780. \def\boldmath{\@subfont\boldmath\unboldmath}%
  781. \def\prm{\fam\z@\svtnrm}%
  782. \def\pit{\@getfont\pit\itfam\@xviipt{amti10\@magscale3}}%
  783. \def\psl{\@getfont\psl\slfam\@xviipt{amsl10\@magscale3}}%
  784. \def\pbf{\fam\bffam\svtnbf}\textfont\bffam\svtnbf 
  785.     \scriptfont\bffam\twlbf \scriptscriptfont\bffam\tenbf 
  786. \def\ptt{\@getfont\ptt\ttfam\@xviipt{amtt10\@magscale3}\@nohyphens
  787.    \ptt\@xviipt}%
  788. \def\psf{\@getfont\psf\sffam\@xviipt{\@mss\@magscale3}}%
  789. \def\psc{\@getfont\psc\scfam\@xviipt{\@mcsc\@magscale3}}%
  790. \def\ly{\fam\lyfam\svtnly}\textfont\lyfam\svtnly 
  791.    \scriptfont\lyfam\twlly   \scriptscriptfont\lyfam\tenly
  792. \@setstrut \rm}
  793.  
  794. \def\@xviipt{}
  795.  
  796. \def\xxpt{\textfont\z@\twtyrm 
  797.   \scriptfont\z@\frtnrm \scriptscriptfont\z@\twlrm
  798. \textfont\@ne\twtymi \scriptfont\@ne\frtnmi \scriptscriptfont\@ne\twlmi
  799. \textfont\tw@\twtysy \scriptfont\tw@\frtnsy \scriptscriptfont\tw@\twlsy
  800. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  801. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
  802.         \textfont\@ne\twtymi \textfont\tw@\twtysy \textfont\lyfam\twtyly
  803.         \@boldfalse}\@boldfalse
  804. \def\boldmath{\@subfont\boldmath\unboldmath}%
  805. \def\prm{\fam\z@\twtyrm}%
  806. \def\pit{\@getfont\pit\itfam\@xxpt{amti10\@magscale4}}%
  807. \def\psl{\@getfont\psl\slfam\@xxpt{amsl10\@magscale4}}%
  808. \def\pbf{\@getfont\pbf\bffam\@xxpt{ambx10\@magscale4}}%
  809. \def\ptt{\@getfont\ptt\ttfam\@xxpt{amtt10\@magscale4}\@nohyphens\ptt\@xxpt}%
  810. \def\psf{\@getfont\psf\sffam\@xxpt{\@mss\@magscale4}}%
  811. \def\psc{\@getfont\psc\scfam\@xxpt{\@mcsc\@magscale4}}%
  812. \def\ly{\fam\lyfam\twtyly}\textfont\lyfam\twtyly 
  813.    \scriptfont\lyfam\frtnly \scriptscriptfont\lyfam\twlly 
  814. \@setstrut \rm}
  815.  
  816. \def\@xxpt{}
  817.  
  818. \def\xxvpt{\textfont\z@\twfvrm 
  819.   \scriptfont\z@\twtyrm \scriptscriptfont\z@\svtnrm
  820. \textfont\@ne\twtymi \scriptfont\@ne\twtymi \scriptscriptfont\@ne\svtnmi
  821. \textfont\tw@\twtysy \scriptfont\tw@\twtysy \scriptscriptfont\tw@\svtnsy
  822. \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
  823. \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
  824.         \textfont\@ne\twtymi \textfont\tw@\twtysy \textfont\lyfam\twtyly
  825.         \@boldfalse}\@boldfalse
  826. \def\boldmath{\@subfont\boldmath\unboldmath}%
  827. \def\prm{\fam\z@\twfvrm}%
  828. \def\pit{\@subfont\it\rm}%
  829. \def\psl{\@subfont\sl\rm}%
  830. \def\pbf{\@getfont\pbf\bffam\@xxvpt{ambx10\@magscale5}}%
  831. \def\ptt{\@subfont\tt\rm}%
  832. \def\psf{\@subfont\sf\rm}%
  833. \def\psc{\@subfont\sc\rm}%
  834. \def\ly{\fam\lyfam\twtyly}\textfont\lyfam\twtyly 
  835.    \scriptfont\lyfam\twtyly \scriptscriptfont\lyfam\svtnly 
  836. \@setstrut \rm}
  837.  
  838. \def\@xxvpt{}
  839.  
  840. % SPECIAL LaTeX character definitions
  841.  
  842. % Definitions of math operators added by LaTeX
  843. \mathchardef\mho"0A30
  844. \mathchardef\Join"3A31
  845. \mathchardef\Box"0A32
  846. \mathchardef\Diamond"0A33
  847. \mathchardef\leadsto"3A3B
  848. \mathchardef\sqsubset"3A3C
  849. \mathchardef\sqsupset"3A3D
  850. \def\lhd{\mathbin{< \hbox to -.43em{}\hbox{\vrule 
  851.       \@width .065em \@height .55em \@depth .05em}\hbox to .2em{}}}
  852. \def\rhd{\mathbin{\hbox to .3em{}\hbox{\vrule \@width .065em \@height 
  853.        .55em \@depth .05em}\hbox to -.43em{}>}}
  854. \def\unlhd{\mathbin{\leq \hbox to -.43em{}\hbox
  855.         {\vrule \@width .065em \@height .63em \@depth -.08em}\hbox to .2em{}}}
  856. \def\unrhd{\mathbin{ \hbox to .3em{}\hbox
  857.  {\vrule \@width .065em \@height .63em \@depth -.08em}\hbox to -.43em{}\geq}}
  858.  
  859. % Definition of \$ to work in italic font (since it produces a pound sterling
  860. % sign in the cmit font.
  861.  
  862. \def\${\protect\pdollar}
  863. \def\pdollar{{\ifdim \fontdimen\@ne\font >\z@ \sl \fi\char`\$}}
  864.  
  865. % Definition of pound sterling sign.
  866.  
  867. \def\pounds{{\it \char'44}}
  868.  
  869. % Definition of \copyright changed so it works in other type styles,
  870. % and so it is robust
  871. \def\copyright{\protect\pcopyright}
  872. \def\pcopyright{{\rm\ooalign{\hfil
  873.      \raise.07ex\hbox{c}\hfil\crcr\mathhexbox20D}}}
  874.